object frmEscReferente: TfrmEscReferente Left = 266 Top = 59 BorderStyle = bsNone Caption = 'frmEscReferente' ClientHeight = 289 ClientWidth = 496 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Shape1: TShape Left = 0 Top = 0 Width = 496 Height = 289 Align = alClient end object Label1: TLabel Left = 8 Top = 9 Width = 126 Height = 13 Caption = 'Escolha um Referente' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label2: TLabel Left = 10 Top = 245 Width = 167 Height = 22 Caption = 'Lista de Referentes' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object DBGrid1: TDBGrid Left = 10 Top = 25 Width = 471 Height = 200 Color = 14413786 Ctl3D = False DataSource = DataSource1 FixedColor = 13551795 Options = [dgTitles, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentCtl3D = False ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDrawColumnCell = DBGrid1DrawColumnCell OnDblClick = DBGrid1DblClick Columns = < item Expanded = False FieldName = 'Descri��o' Width = 450 Visible = True end> end object BitBtn1: TBitBtn Left = 328 Top = 244 Width = 75 Height = 25 TabOrder = 1 Kind = bkOK end object BitBtn2: TBitBtn Left = 408 Top = 244 Width = 75 Height = 25 Caption = 'Cancelar' TabOrder = 2 Kind = bkCancel end object DataSource1: TDataSource DataSet = Table1 Left = 160 Top = 8 end object Table1: TTable Filtered = True FieldDefs = < item Name = 'Descri��o' Attributes = [faRequired] DataType = ftString Size = 50 end> StoreDefs = True Left = 192 Top = 8 end end